home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / oop_tp55.zip / LIST6_3.PAS < prev    next >
Pascal/Delphi Source File  |  1990-03-28  |  1KB  |  53 lines
  1. program Listing6_3;
  2.  
  3. uses ListObj;
  4.  
  5. type
  6.  
  7. ClassA = object(Node)
  8.          Number1 : integer;
  9.          Number2 : integer;
  10.          Number3 : integer;
  11.          procedure Init( N1, N2, N3 : integer );
  12.          end;
  13.  
  14. ClassB = object(Node)
  15.          Real1 : real;
  16.          procedure Init( R1 : real );
  17.          end;
  18.  
  19. procedure ClassA.Init( N1, N2, N3 : integer );
  20. begin
  21.      Node.Init( SizeOf( Self ) );
  22.      Number1 := N1;
  23.      Number2 := N2;
  24.      Number3 := N3;
  25. end;
  26.  
  27. procedure ClassB.Init( R1 : real );
  28. begin
  29.      Node.Init( SizeOf( Self ) );
  30.      Real1 := R1;
  31. end;
  32.  
  33. var
  34.    ObjectA : ClassA;
  35.    ObjectB : ClassB;
  36.    MixList : List;
  37.    TypeA : ^ClassA;
  38.    TypeB : ^ClassB;
  39. begin
  40.      MixList.Init;
  41.      ObjectA.Init( 1,2,3 );
  42.      ObjectB.Init( 3.1415 );
  43.      ObjectA.AppendToList( MixList );
  44.      MixList.Append( @ObjectB );
  45.      if MixList.FindObject = true then
  46.         begin
  47.         TypeB := MixList.GetCursor;
  48.         TypeA := MixList.GetCursor;
  49.         end;
  50. end.
  51.  
  52.  
  53.